/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Oberon⁄F™ 1.2 / Preinstalled version / Obx / Mod / Graphs

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 47 72 61 70 68 73 | 00 00 00 00 00 00 00 00 |..Graphs|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 6f 4f 44 43 6f 62 6e | 46 01 00 00 00 00 00 00 |.oODCobn|F.......|
|00000050| 00 00 00 00 00 1a 3b 00 | 00 01 3e ae 06 bf 7e ae |......;.|..>...~.|
|00000060| 06 bf 8d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 e5 da 00 00 |........|........|
|00000080| 43 44 4f 6f 00 00 00 00 | 82 f1 44 6f 63 75 6d 65 |CDOo....|..Docume|
|00000090| 6e 74 73 2e 53 74 64 44 | 6f 63 75 6d 65 6e 74 44 |nts.StdD|ocumentD|
|000000a0| 65 73 63 00 f1 44 6f 63 | 75 6d 65 6e 74 73 2e 44 |esc..Doc|uments.D|
|000000b0| 6f 63 75 6d 65 6e 74 44 | 65 73 63 00 f1 43 6f 6e |ocumentD|esc..Con|
|000000c0| 74 61 69 6e 65 72 73 2e | 56 69 65 77 44 65 73 63 |tainers.|ViewDesc|
|000000d0| 00 f1 56 69 65 77 73 2e | 56 69 65 77 44 65 73 63 |..Views.|ViewDesc|
|000000e0| 00 f0 53 74 6f 72 65 73 | 2e 53 74 6f 72 65 44 65 |..Stores|.StoreDe|
|000000f0| 73 63 00 00 00 00 00 00 | 00 00 00 07 00 00 00 b8 |sc......|........|
|00000100| 19 00 00 00 00 00 83 f1 | 44 6f 63 75 6d 65 6e 74 |........|Document|
|00000110| 73 2e 4d 6f 64 65 6c 44 | 65 73 63 00 f1 43 6f 6e |s.ModelD|esc..Con|
|00000120| 74 61 69 6e 65 72 73 2e | 4d 6f 64 65 6c 44 65 73 |tainers.|ModelDes|
|00000130| 63 00 f1 4d 6f 64 65 6c | 73 2e 4d 6f 64 65 6c 44 |c..Model|s.ModelD|
|00000140| 65 73 63 00 f1 53 74 6f | 72 65 73 2e 45 6c 65 6d |esc..Sto|res.Elem|
|00000150| 44 65 73 63 00 f2 04 00 | 00 00 00 00 00 00 06 19 |Desc....|........|
|00000160| 00 00 09 00 00 00 fe 18 | 00 00 00 00 00 00 00 82 |........|........|
|00000170| f1 54 65 78 74 56 69 65 | 77 73 2e 53 74 64 56 69 |.TextVie|ws.StdVi|
|00000180| 65 77 44 65 73 63 00 f1 | 54 65 78 74 56 69 65 77 |ewDesc..|TextView|
|00000190| 73 2e 56 69 65 77 44 65 | 73 63 00 f2 02 00 00 00 |s.ViewDe|sc......|
|000001a0| 00 00 00 00 00 00 00 00 | 07 00 00 00 a8 18 00 00 |........|........|
|000001b0| 00 00 00 83 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|000001c0| 53 74 64 4d 6f 64 65 6c | 44 65 73 63 00 f1 54 65 |StdModel|Desc..Te|
|000001d0| 78 74 4d 6f 64 65 6c 73 | 2e 4d 6f 64 65 6c 44 65 |xtModels|.ModelDe|
|000001e0| 73 63 00 f2 06 00 00 00 | 00 00 00 00 aa 16 00 00 |sc......|........|
|000001f0| 0f 00 00 00 a2 16 00 00 | 00 00 00 00 00 00 41 01 |........|......A.|
|00000200| 00 00 00 82 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|00000210| 41 74 74 72 69 62 75 74 | 65 73 44 65 73 63 00 f2 |Attribut|esDesc..|
|00000220| 04 00 00 00 00 00 00 00 | 2f 00 00 00 00 00 00 00 |........|/.......|
|00000230| 22 00 00 00 00 00 00 00 | 00 01 00 00 00 00 48 65 |".......|......He|
|00000240| 6c 76 65 74 69 63 61 00 | 7c be 01 00 00 00 00 00 |lvetica.||.......|
|00000250| 90 01 00 00 00 00 71 02 | 00 00 01 82 f2 0d 00 00 |......q.|........|
|00000260| 00 00 00 00 00 66 00 00 | 00 00 00 00 00 22 00 00 |.....f..|....."..|
|00000270| 00 00 00 00 00 00 01 00 | 00 00 00 48 65 6c 76 65 |........|...Helve|
|00000280| 74 69 63 61 00 7c be 01 | 00 01 00 00 00 90 01 00 |tica.|..|........|
|00000290| 00 00 00 0a 00 00 00 00 | 4c 01 00 00 01 1b 00 00 |........|L.......|
|000002a0| 00 00 74 00 00 00 01 12 | 00 00 00 00 2d 01 00 00 |..t.....|....-...|
|000002b0| 01 1c 00 00 00 00 bf 00 | 00 00 01 31 00 00 00 00 |........|...1....|
|000002c0| 4b 00 00 00 01 10 00 00 | 00 00 1e 06 00 00 02 82 |K.......|........|
|000002d0| f2 0d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 22 00 00 00 00 00 00 | 00 00 01 00 00 00 00 48 |."......|.......H|
|000002f0| 65 6c 76 65 74 69 63 61 | 00 7c be 01 00 00 00 00 |elvetica|.|......|
|00000300| 00 bc 02 00 00 00 00 06 | 00 00 00 00 e8 00 00 00 |........|........|
|00000310| 01 12 00 00 00 00 93 03 | 00 00 01 21 00 00 00 00 |........|...!....|
|00000320| 81 00 00 00 01 1c 00 00 | 00 00 df 00 00 00 01 1b |........|........|
|00000330| 00 00 00 00 74 01 00 00 | 02 07 00 00 00 00 77 00 |....t...|......w.|
|00000340| 00 00 ff 4d 4f 44 55 4c | 45 20 4f 62 78 47 72 61 |...MODUL|E ObxGra|
|00000350| 70 68 73 3b 0d 0d 09 49 | 4d 50 4f 52 54 0d 09 09 |phs;...I|MPORT...|
|00000360| 44 6f 6d 61 69 6e 73 2c | 20 53 74 6f 72 65 73 2c |Domains,| Stores,|
|00000370| 20 50 6f 72 74 73 2c 20 | 4d 6f 64 65 6c 73 2c 20 | Ports, |Models, |
|00000380| 56 69 65 77 73 2c 20 43 | 6f 6e 74 72 6f 6c 6c 65 |Views, C|ontrolle|
|00000390| 72 73 2c 20 50 72 6f 70 | 65 72 74 69 65 73 2c 20 |rs, Prop|erties, |
|000003a0| 54 65 78 74 4d 6f 64 65 | 6c 73 2c 20 54 65 78 74 |TextMode|ls, Text|
|000003b0| 56 69 65 77 73 2c 20 54 | 65 78 74 4d 61 70 70 65 |Views, T|extMappe|
|000003c0| 72 73 3b 0d 0d 09 43 4f | 4e 53 54 20 6d 69 6e 56 |rs;...CO|NST minV|
|000003d0| 65 72 73 69 6f 6e 20 3d | 20 30 3b 20 6d 61 78 56 |ersion =| 0; maxV|
|000003e0| 65 72 73 69 6f 6e 20 3d | 20 30 3b 0d 0d 09 54 59 |ersion =| 0;...TY|
|000003f0| 50 45 0d 09 09 56 61 6c | 75 65 20 3d 20 50 4f 49 |PE...Val|ue = POI|
|00000400| 4e 54 45 52 20 54 4f 20 | 52 45 43 4f 52 44 0d 09 |NTER TO |RECORD..|
|00000410| 09 09 6e 65 78 74 3a 20 | 56 61 6c 75 65 3b 0d 09 |..next: |Value;..|
|00000420| 09 09 76 61 6c 3a 20 4c | 4f 4e 47 49 4e 54 0d 09 |..val: L|ONGINT..|
|00000430| 09 45 4e 44 3b 0d 0d 09 | 09 4d 6f 64 65 6c 20 3d |.END;...|.Model =|
|00000440| 20 50 4f 49 4e 54 45 52 | 20 54 4f 20 52 45 43 4f | POINTER| TO RECO|
|00000450| 52 44 20 28 4d 6f 64 65 | 6c 73 2e 4d 6f 64 65 6c |RD (Mode|ls.Model|
|00000460| 44 65 73 63 29 0d 09 09 | 09 76 61 6c 75 65 73 3a |Desc)...|.values:|
|00000470| 20 56 61 6c 75 65 0d 09 | 09 45 4e 44 3b 0d 0d 09 | Value..|.END;...|
|00000480| 09 56 69 65 77 20 3d 20 | 50 4f 49 4e 54 45 52 20 |.View = |POINTER |
|00000490| 54 4f 20 52 45 43 4f 52 | 44 20 28 56 69 65 77 73 |TO RECOR|D (Views|
|000004a0| 2e 56 69 65 77 44 65 73 | 63 29 0d 09 09 09 6d 6f |.ViewDes|c)....mo|
|000004b0| 64 65 6c 3a 20 4d 6f 64 | 65 6c 0d 09 09 45 4e 44 |del: Mod|el...END|
|000004c0| 3b 0d 0d 09 09 4d 6f 64 | 65 6c 4f 70 20 3d 20 50 |;....Mod|elOp = P|
|000004d0| 4f 49 4e 54 45 52 20 54 | 4f 20 52 45 43 4f 52 44 |OINTER T|O RECORD|
|000004e0| 20 28 44 6f 6d 61 69 6e | 73 2e 4f 70 65 72 61 74 | (Domain|s.Operat|
|000004f0| 69 6f 6e 44 65 73 63 29 | 0d 09 09 09 6d 6f 64 65 |ionDesc)|....mode|
|00000500| 6c 3a 20 4d 6f 64 65 6c | 3b 0d 09 09 09 76 61 6c |l: Model|;....val|
|00000510| 75 65 73 3a 20 56 61 6c | 75 65 0d 09 09 45 4e 44 |ues: Val|ue...END|
|00000520| 3b 0d 0d 09 50 52 4f 43 | 45 44 55 52 45 20 28 6f |;...PROC|EDURE (o|
|00000530| 70 3a 20 4d 6f 64 65 6c | 4f 70 29 20 44 6f 3b 0d |p: Model|Op) Do;.|
|00000540| 09 09 56 41 52 20 76 3a | 20 56 61 6c 75 65 3b 20 |..VAR v:| Value; |
|00000550| 6d 73 67 3a 20 4d 6f 64 | 65 6c 73 2e 55 70 64 61 |msg: Mod|els.Upda|
|00000560| 74 65 4d 73 67 3b 0d 09 | 42 45 47 49 4e 0d 09 09 |teMsg;..|BEGIN...|
|00000570| 76 20 3a 3d 20 6f 70 2e | 6d 6f 64 65 6c 2e 76 61 |v := op.|model.va|
|00000580| 6c 75 65 73 3b 20 6f 70 | 2e 6d 6f 64 65 6c 2e 76 |lues; op|.model.v|
|00000590| 61 6c 75 65 73 20 3a 3d | 20 6f 70 2e 76 61 6c 75 |alues :=| op.valu|
|000005a0| 65 73 3b 20 6f 70 2e 76 | 61 6c 75 65 73 20 3a 3d |es; op.v|alues :=|
|000005b0| 20 76 3b 09 28 2a 20 73 | 77 61 70 20 2a 29 0d 09 | v;.(* s|wap *)..|
|000005c0| 09 4d 6f 64 65 6c 73 2e | 42 72 6f 61 64 63 61 73 |.Models.|Broadcas|
|000005d0| 74 28 6f 70 2e 6d 6f 64 | 65 6c 2c 20 6d 73 67 29 |t(op.mod|el, msg)|
|000005e0| 0d 09 45 4e 44 20 44 6f | 3b 0d 0d 0d 09 50 52 4f |..END Do|;....PRO|
|000005f0| 43 45 44 55 52 45 20 28 | 6d 3a 20 4d 6f 64 65 6c |CEDURE (|m: Model|
|00000600| 29 20 49 6e 74 65 72 6e | 61 6c 69 7a 65 20 28 56 |) Intern|alize (V|
|00000610| 41 52 20 72 64 3a 20 53 | 74 6f 72 65 73 2e 52 65 |AR rd: S|tores.Re|
|00000620| 61 64 65 72 29 3b 0d 09 | 09 56 41 52 20 74 68 69 |ader);..|.VAR thi|
|00000630| 73 56 65 72 73 69 6f 6e | 3a 20 53 48 4f 52 54 49 |sVersion|: SHORTI|
|00000640| 4e 54 3b 20 6e 3a 20 49 | 4e 54 45 47 45 52 3b 20 |NT; n: I|NTEGER; |
|00000650| 76 2c 20 6c 61 73 74 3a | 20 56 61 6c 75 65 3b 0d |v, last:| Value;.|
|00000660| 09 42 45 47 49 4e 0d 09 | 09 6d 2e 49 6e 74 65 72 |.BEGIN..|.m.Inter|
|00000670| 6e 61 6c 69 7a 65 5e 28 | 72 64 29 3b 0d 09 09 49 |nalize^(|rd);...I|
|00000680| 46 20 7e 72 64 2e 63 61 | 6e 63 65 6c 6c 65 64 20 |F ~rd.ca|ncelled |
|00000690| 54 48 45 4e 0d 09 09 09 | 72 64 2e 52 65 61 64 56 |THEN....|rd.ReadV|
|000006a0| 65 72 73 69 6f 6e 28 6d | 69 6e 56 65 72 73 69 6f |ersion(m|inVersio|
|000006b0| 6e 2c 20 6d 61 78 56 65 | 72 73 69 6f 6e 2c 20 74 |n, maxVe|rsion, t|
|000006c0| 68 69 73 56 65 72 73 69 | 6f 6e 29 3b 0d 09 09 09 |hisVersi|on);....|
|000006d0| 49 46 20 7e 72 64 2e 63 | 61 6e 63 65 6c 6c 65 64 |IF ~rd.c|ancelled|
|000006e0| 20 54 48 45 4e 0d 09 09 | 09 09 6c 61 73 74 20 3a | THEN...|..last :|
|000006f0| 3d 20 4e 49 4c 3b 0d 09 | 09 09 09 72 64 2e 52 65 |= NIL;..|...rd.Re|
|00000700| 61 64 49 6e 74 28 6e 29 | 3b 09 28 2a 20 72 65 61 |adInt(n)|;.(* rea|
|00000710| 64 20 6e 75 6d 62 65 72 | 20 6f 66 20 76 61 6c 75 |d number| of valu|
|00000720| 65 73 20 2a 29 0d 09 09 | 09 09 57 48 49 4c 45 20 |es *)...|..WHILE |
|00000730| 6e 20 23 20 30 20 44 4f | 0d 09 09 09 09 09 4e 45 |n # 0 DO|......NE|
|00000740| 57 28 76 29 3b 20 72 64 | 2e 52 65 61 64 4c 49 6e |W(v); rd|.ReadLIn|
|00000750| 74 28 76 2e 76 61 6c 29 | 3b 0d 09 09 09 09 09 49 |t(v.val)|;......I|
|00000760| 46 20 6c 61 73 74 20 3d | 20 4e 49 4c 20 54 48 45 |F last =| NIL THE|
|00000770| 4e 20 6d 2e 76 61 6c 75 | 65 73 20 3a 3d 20 76 20 |N m.valu|es := v |
|00000780| 45 4c 53 45 20 6c 61 73 | 74 2e 6e 65 78 74 20 3a |ELSE las|t.next :|
|00000790| 3d 20 76 20 45 4e 44 3b | 09 28 2a 20 61 70 70 65 |= v END;|.(* appe|
|000007a0| 6e 64 20 76 61 6c 75 65 | 20 2a 29 0d 09 09 09 09 |nd value| *).....|
|000007b0| 09 6c 61 73 74 20 3a 3d | 20 76 3b 0d 09 09 09 09 |.last :=| v;.....|
|000007c0| 09 44 45 43 28 6e 29 0d | 09 09 09 09 45 4e 44 0d |.DEC(n).|....END.|
|000007d0| 09 09 09 45 4e 44 0d 09 | 09 45 4e 44 0d 09 45 4e |...END..|.END..EN|
|000007e0| 44 20 49 6e 74 65 72 6e | 61 6c 69 7a 65 3b 0d 0d |D Intern|alize;..|
|000007f0| 09 50 52 4f 43 45 44 55 | 52 45 20 28 6d 3a 20 4d |.PROCEDU|RE (m: M|
|00000800| 6f 64 65 6c 29 20 45 78 | 74 65 72 6e 61 6c 69 7a |odel) Ex|ternaliz|
|00000810| 65 20 28 56 41 52 20 77 | 72 3a 20 53 74 6f 72 65 |e (VAR w|r: Store|
|00000820| 73 2e 57 72 69 74 65 72 | 29 3b 0d 09 09 56 41 52 |s.Writer|);...VAR|
|00000830| 20 76 3a 20 56 61 6c 75 | 65 3b 20 6e 3a 20 49 4e | v: Valu|e; n: IN|
|00000840| 54 45 47 45 52 3b 0d 09 | 42 45 47 49 4e 0d 09 09 |TEGER;..|BEGIN...|
|00000850| 6d 2e 45 78 74 65 72 6e | 61 6c 69 7a 65 5e 28 77 |m.Extern|alize^(w|
|00000860| 72 29 3b 0d 09 09 77 72 | 2e 57 72 69 74 65 56 65 |r);...wr|.WriteVe|
|00000870| 72 73 69 6f 6e 28 6d 61 | 78 56 65 72 73 69 6f 6e |rsion(ma|xVersion|
|00000880| 29 3b 0d 09 09 76 20 3a | 3d 20 6d 2e 76 61 6c 75 |);...v :|= m.valu|
|00000890| 65 73 3b 20 6e 20 3a 3d | 20 30 3b 20 57 48 49 4c |es; n :=| 0; WHIL|
|000008a0| 45 20 76 20 23 20 4e 49 | 4c 20 44 4f 20 49 4e 43 |E v # NI|L DO INC|
|000008b0| 28 6e 29 3b 20 76 20 3a | 3d 20 76 2e 6e 65 78 74 |(n); v :|= v.next|
|000008c0| 20 45 4e 44 3b 0d 09 09 | 77 72 2e 57 72 69 74 65 | END;...|wr.Write|
|000008d0| 49 6e 74 28 6e 29 3b 09 | 28 2a 20 77 72 69 74 65 |Int(n);.|(* write|
|000008e0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 76 61 6c 75 65 | number |of value|
|000008f0| 73 20 2a 29 0d 09 09 76 | 20 3a 3d 20 6d 2e 76 61 |s *)...v| := m.va|
|00000900| 6c 75 65 73 3b 20 57 48 | 49 4c 45 20 76 20 23 20 |lues; WH|ILE v # |
|00000910| 4e 49 4c 20 44 4f 20 77 | 72 2e 57 72 69 74 65 4c |NIL DO w|r.WriteL|
|00000920| 49 6e 74 28 76 2e 76 61 | 6c 29 3b 20 76 20 3a 3d |Int(v.va|l); v :=|
|00000930| 20 76 2e 6e 65 78 74 20 | 45 4e 44 0d 09 45 4e 44 | v.next |END..END|
|00000940| 20 45 78 74 65 72 6e 61 | 6c 69 7a 65 3b 0d 0d 09 | Externa|lize;...|
|00000950| 50 52 4f 43 45 44 55 52 | 45 20 28 6d 3a 20 4d 6f |PROCEDUR|E (m: Mo|
|00000960| 64 65 6c 29 20 43 6f 70 | 79 41 6c 6c 46 72 6f 6d |del) Cop|yAllFrom|
|00000970| 20 28 73 6f 75 72 63 65 | 3a 20 4d 6f 64 65 6c 73 | (source|: Models|
|00000980| 2e 4d 6f 64 65 6c 29 3b | 0d 09 42 45 47 49 4e 0d |.Model);|..BEGIN.|
|00000990| 09 09 6d 2e 76 61 6c 75 | 65 73 20 3a 3d 20 73 6f |..m.valu|es := so|
|000009a0| 75 72 63 65 28 4d 6f 64 | 65 6c 29 2e 76 61 6c 75 |urce(Mod|el).valu|
|000009b0| 65 73 09 28 2a 20 76 61 | 6c 75 65 73 20 61 72 65 |es.(* va|lues are|
|000009c0| 20 69 6d 6d 75 74 61 62 | 6c 65 20 61 6e 64 20 74 | immutab|le and t|
|000009d0| 68 75 73 20 63 61 6e 20 | 62 65 20 73 68 61 72 65 |hus can |be share|
|000009e0| 64 20 2a 29 0d 09 45 4e | 44 20 43 6f 70 79 41 6c |d *)..EN|D CopyAl|
|000009f0| 6c 46 72 6f 6d 3b 0d 0d | 09 50 52 4f 43 45 44 55 |lFrom;..|.PROCEDU|
|00000a00| 52 45 20 28 6d 3a 20 4d | 6f 64 65 6c 29 20 49 6e |RE (m: M|odel) In|
|00000a10| 69 74 46 72 6f 6d 20 28 | 73 6f 75 72 63 65 3a 20 |itFrom (|source: |
|00000a20| 4d 6f 64 65 6c 73 2e 4d | 6f 64 65 6c 29 3b 09 28 |Models.M|odel);.(|
|00000a30| 2a 20 64 6f 20 6e 6f 74 | 68 69 6e 67 20 2a 29 0d |* do not|hing *).|
|00000a40| 09 45 4e 44 20 49 6e 69 | 74 46 72 6f 6d 3b 0d 0d |.END Ini|tFrom;..|
|00000a50| 09 50 52 4f 43 45 44 55 | 52 45 20 28 6d 3a 20 4d |.PROCEDU|RE (m: M|
|00000a60| 6f 64 65 6c 29 20 53 65 | 74 56 61 6c 75 65 73 20 |odel) Se|tValues |
|00000a70| 28 76 3a 20 56 61 6c 75 | 65 29 3b 0d 09 09 56 41 |(v: Valu|e);...VA|
|00000a80| 52 20 6f 70 3a 20 4d 6f | 64 65 6c 4f 70 3b 0d 09 |R op: Mo|delOp;..|
|00000a90| 42 45 47 49 4e 0d 09 09 | 4e 45 57 28 6f 70 29 3b |BEGIN...|NEW(op);|
|00000aa0| 20 6f 70 2e 6d 6f 64 65 | 6c 20 3a 3d 20 6d 3b 20 | op.mode|l := m; |
|00000ab0| 6f 70 2e 76 61 6c 75 65 | 73 20 3a 3d 20 76 3b 0d |op.value|s := v;.|
|00000ac0| 09 09 4d 6f 64 65 6c 73 | 2e 44 6f 28 6d 2c 20 22 |..Models|.Do(m, "|
|00000ad0| 53 65 74 20 56 61 6c 75 | 65 73 22 2c 20 6f 70 29 |Set Valu|es", op)|
|00000ae0| 0d 09 45 4e 44 20 53 65 | 74 56 61 6c 75 65 73 3b |..END Se|tValues;|
|00000af0| 0d 0d 0d 09 50 52 4f 43 | 45 44 55 52 45 20 4f 70 |....PROC|EDURE Op|
|00000b00| 65 6e 44 61 74 61 20 28 | 76 3a 20 56 69 65 77 29 |enData (|v: View)|
|00000b10| 3b 0d 09 09 56 41 52 20 | 74 3a 20 54 65 78 74 4d |;...VAR |t: TextM|
|00000b20| 6f 64 65 6c 73 2e 4d 6f | 64 65 6c 3b 20 66 3a 20 |odels.Mo|del; f: |
|00000b30| 54 65 78 74 4d 61 70 70 | 65 72 73 2e 46 6f 72 6d |TextMapp|ers.Form|
|00000b40| 61 74 74 65 72 3b 20 68 | 3a 20 56 61 6c 75 65 3b |atter; h|: Value;|
|00000b50| 0d 09 42 45 47 49 4e 0d | 09 09 74 20 3a 3d 20 54 |..BEGIN.|..t := T|
|00000b60| 65 78 74 4d 6f 64 65 6c | 73 2e 64 69 72 2e 4e 65 |extModel|s.dir.Ne|
|00000b70| 77 28 29 3b 0d 09 09 66 | 2e 43 6f 6e 6e 65 63 74 |w();...f|.Connect|
|00000b80| 54 6f 28 74 29 3b 0d 09 | 09 68 20 3a 3d 20 76 2e |To(t);..|.h := v.|
|00000b90| 6d 6f 64 65 6c 2e 76 61 | 6c 75 65 73 3b 0d 09 09 |model.va|lues;...|
|00000ba0| 57 48 49 4c 45 20 68 20 | 23 20 4e 49 4c 20 44 4f |WHILE h |# NIL DO|
|00000bb0| 0d 09 09 09 66 2e 57 72 | 69 74 65 49 6e 74 28 68 |....f.Wr|iteInt(h|
|00000bc0| 2e 76 61 6c 29 3b 20 66 | 2e 57 72 69 74 65 4c 6e |.val); f|.WriteLn|
|00000bd0| 3b 0d 09 09 09 68 20 3a | 3d 20 68 2e 6e 65 78 74 |;....h :|= h.next|
|00000be0| 0d 09 09 45 4e 44 3b 0d | 09 09 56 69 65 77 73 2e |...END;.|..Views.|
|00000bf0| 4f 70 65 6e 41 75 78 28 | 54 65 78 74 56 69 65 77 |OpenAux(|TextView|
|00000c00| 73 2e 64 69 72 2e 4e 65 | 77 28 74 29 2c 20 22 56 |s.dir.Ne|w(t), "V|
|00000c10| 61 6c 75 65 73 22 29 0d | 09 45 4e 44 20 4f 70 65 |alues").|.END Ope|
|00000c20| 6e 44 61 74 61 3b 0d 0d | 09 50 52 4f 43 45 44 55 |nData;..|.PROCEDU|
|00000c30| 52 45 20 44 72 6f 70 44 | 61 74 61 20 28 74 3a 20 |RE DropD|ata (t: |
|00000c40| 54 65 78 74 4d 6f 64 65 | 6c 73 2e 4d 6f 64 65 6c |TextMode|ls.Model|
|00000c50| 3b 20 76 3a 20 56 69 65 | 77 29 3b 0d 09 09 56 41 |; v: Vie|w);...VA|
|00000c60| 52 20 73 3a 20 54 65 78 | 74 4d 61 70 70 65 72 73 |R s: Tex|tMappers|
|00000c70| 2e 53 63 61 6e 6e 65 72 | 3b 20 66 69 72 73 74 2c |.Scanner|; first,|
|00000c80| 20 6c 61 73 74 2c 20 68 | 3a 20 56 61 6c 75 65 3b | last, h|: Value;|
|00000c90| 0d 09 42 45 47 49 4e 0d | 09 09 73 2e 43 6f 6e 6e |..BEGIN.|..s.Conn|
|00000ca0| 65 63 74 54 6f 28 74 29 | 3b 0d 09 09 73 2e 53 63 |ectTo(t)|;...s.Sc|
|00000cb0| 61 6e 3b 0d 09 09 57 48 | 49 4c 45 20 73 2e 74 79 |an;...WH|ILE s.ty|
|00000cc0| 70 65 20 3d 20 54 65 78 | 74 4d 61 70 70 65 72 73 |pe = Tex|tMappers|
|00000cd0| 2e 69 6e 74 20 44 4f 0d | 09 09 09 4e 45 57 28 68 |.int DO.|...NEW(h|
|00000ce0| 29 3b 20 68 2e 76 61 6c | 20 3a 3d 20 73 2e 69 6e |); h.val| := s.in|
|00000cf0| 74 3b 0d 09 09 09 49 46 | 20 6c 61 73 74 20 3d 20 |t;....IF| last = |
|00000d00| 4e 49 4c 20 54 48 45 4e | 20 66 69 72 73 74 20 3a |NIL THEN| first :|
|00000d10| 3d 20 68 20 45 4c 53 45 | 20 6c 61 73 74 2e 6e 65 |= h ELSE| last.ne|
|00000d20| 78 74 20 3a 3d 20 68 20 | 45 4e 44 3b 0d 09 09 09 |xt := h |END;....|
|00000d30| 6c 61 73 74 20 3a 3d 20 | 68 3b 0d 09 09 09 73 2e |last := |h;....s.|
|00000d40| 53 63 61 6e 0d 09 09 45 | 4e 44 3b 0d 09 09 76 2e |Scan...E|ND;...v.|
|00000d50| 6d 6f 64 65 6c 2e 53 65 | 74 56 61 6c 75 65 73 28 |model.Se|tValues(|
|00000d60| 66 69 72 73 74 29 0d 09 | 45 4e 44 20 44 72 6f 70 |first)..|END Drop|
|00000d70| 44 61 74 61 3b 0d 0d 0d | 09 50 52 4f 43 45 44 55 |Data;...|.PROCEDU|
|00000d80| 52 45 20 28 76 3a 20 56 | 69 65 77 29 20 49 6e 74 |RE (v: V|iew) Int|
|00000d90| 65 72 6e 61 6c 69 7a 65 | 20 28 56 41 52 20 72 64 |ernalize| (VAR rd|
|00000da0| 3a 20 53 74 6f 72 65 73 | 2e 52 65 61 64 65 72 29 |: Stores|.Reader)|
|00000db0| 3b 0d 09 09 56 41 52 20 | 74 68 69 73 56 65 72 73 |;...VAR |thisVers|
|00000dc0| 69 6f 6e 3a 20 53 48 4f | 52 54 49 4e 54 3b 20 73 |ion: SHO|RTINT; s|
|00000dd0| 3a 20 53 74 6f 72 65 73 | 2e 53 74 6f 72 65 3b 0d |: Stores|.Store;.|
|00000de0| 09 42 45 47 49 4e 0d 09 | 09 76 2e 49 6e 74 65 72 |.BEGIN..|.v.Inter|
|00000df0| 6e 61 6c 69 7a 65 5e 28 | 72 64 29 3b 0d 09 09 49 |nalize^(|rd);...I|
|00000e00| 46 20 7e 72 64 2e 63 61 | 6e 63 65 6c 6c 65 64 20 |F ~rd.ca|ncelled |
|00000e10| 54 48 45 4e 0d 09 09 09 | 72 64 2e 52 65 61 64 56 |THEN....|rd.ReadV|
|00000e20| 65 72 73 69 6f 6e 28 6d | 69 6e 56 65 72 73 69 6f |ersion(m|inVersio|
|00000e30| 6e 2c 20 6d 61 78 56 65 | 72 73 69 6f 6e 2c 20 74 |n, maxVe|rsion, t|
|00000e40| 68 69 73 56 65 72 73 69 | 6f 6e 29 3b 0d 09 09 09 |hisVersi|on);....|
|00000e50| 49 46 20 7e 72 64 2e 63 | 61 6e 63 65 6c 6c 65 64 |IF ~rd.c|ancelled|
|00000e60| 20 54 48 45 4e 0d 09 09 | 09 09 72 64 2e 52 65 61 | THEN...|..rd.Rea|
|00000e70| 64 53 74 6f 72 65 28 73 | 29 3b 20 41 53 53 45 52 |dStore(s|); ASSER|
|00000e80| 54 28 73 20 23 20 4e 49 | 4c 2c 20 31 30 30 29 3b |T(s # NI|L, 100);|
|00000e90| 0d 09 09 09 09 49 46 20 | 73 20 49 53 20 4d 6f 64 |.....IF |s IS Mod|
|00000ea0| 65 6c 20 54 48 45 4e 0d | 09 09 09 09 09 76 2e 49 |el THEN.|.....v.I|
|00000eb0| 6e 69 74 4d 6f 64 65 6c | 28 73 28 4d 6f 64 65 6c |nitModel|(s(Model|
|00000ec0| 29 29 0d 09 09 09 09 45 | 4c 53 45 0d 09 09 09 09 |)).....E|LSE.....|
|00000ed0| 09 72 64 2e 54 75 72 6e | 49 6e 74 6f 41 6c 69 65 |.rd.Turn|IntoAlie|
|00000ee0| 6e 28 53 74 6f 72 65 73 | 2e 61 6c 69 65 6e 43 6f |n(Stores|.alienCo|
|00000ef0| 6d 70 6f 6e 65 6e 74 29 | 0d 09 09 09 09 45 4e 44 |mponent)|.....END|
|00000f00| 0d 09 09 09 45 4e 44 0d | 09 09 45 4e 44 0d 09 45 |....END.|..END..E|
|00000f10| 4e 44 20 49 6e 74 65 72 | 6e 61 6c 69 7a 65 3b 0d |ND Inter|nalize;.|
|00000f20| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 28 76 3a 20 |..PROCED|URE (v: |
|00000f30| 56 69 65 77 29 20 45 78 | 74 65 72 6e 61 6c 69 7a |View) Ex|ternaliz|
|00000f40| 65 20 28 56 41 52 20 77 | 72 3a 20 53 74 6f 72 65 |e (VAR w|r: Store|
|00000f50| 73 2e 57 72 69 74 65 72 | 29 3b 0d 09 42 45 47 49 |s.Writer|);..BEGI|
|00000f60| 4e 0d 09 09 76 2e 45 78 | 74 65 72 6e 61 6c 69 7a |N...v.Ex|ternaliz|
|00000f70| 65 5e 28 77 72 29 3b 0d | 09 09 77 72 2e 57 72 69 |e^(wr);.|..wr.Wri|
|00000f80| 74 65 56 65 72 73 69 6f | 6e 28 6d 61 78 56 65 72 |teVersio|n(maxVer|
|00000f90| 73 69 6f 6e 29 3b 0d 09 | 09 77 72 2e 57 72 69 74 |sion);..|.wr.Writ|
|00000fa0| 65 53 74 6f 72 65 28 76 | 2e 6d 6f 64 65 6c 29 0d |eStore(v|.model).|
|00000fb0| 09 45 4e 44 20 45 78 74 | 65 72 6e 61 6c 69 7a 65 |.END Ext|ernalize|
|00000fc0| 3b 0d 0d 09 50 52 4f 43 | 45 44 55 52 45 20 28 76 |;...PROC|EDURE (v|
|00000fd0| 3a 20 56 69 65 77 29 20 | 49 6e 69 74 4d 6f 64 65 |: View) |InitMode|
|00000fe0| 6c 20 28 6d 3a 20 4d 6f | 64 65 6c 73 2e 4d 6f 64 |l (m: Mo|dels.Mod|
|00000ff0| 65 6c 29 3b 0d 09 42 45 | 47 49 4e 0d 09 09 76 2e |el);..BE|GIN...v.|
|00001000| 6d 6f 64 65 6c 20 3a 3d | 20 6d 28 4d 6f 64 65 6c |model :=| m(Model|
|00001010| 29 0d 09 45 4e 44 20 49 | 6e 69 74 4d 6f 64 65 6c |)..END I|nitModel|
|00001020| 3b 0d 0d 09 50 52 4f 43 | 45 44 55 52 45 20 28 76 |;...PROC|EDURE (v|
|00001030| 3a 20 56 69 65 77 29 20 | 54 68 69 73 4d 6f 64 65 |: View) |ThisMode|
|00001040| 6c 20 28 29 3a 20 4d 6f | 64 65 6c 73 2e 4d 6f 64 |l (): Mo|dels.Mod|
|00001050| 65 6c 3b 0d 09 42 45 47 | 49 4e 0d 09 09 52 45 54 |el;..BEG|IN...RET|
|00001060| 55 52 4e 20 76 2e 6d 6f | 64 65 6c 0d 09 45 4e 44 |URN v.mo|del..END|
|00001070| 20 54 68 69 73 4d 6f 64 | 65 6c 3b 0d 0d 09 50 52 | ThisMod|el;...PR|
|00001080| 4f 43 45 44 55 52 45 20 | 28 76 3a 20 56 69 65 77 |OCEDURE |(v: View|
|00001090| 29 20 52 65 73 74 6f 72 | 65 20 28 66 3a 20 56 69 |) Restor|e (f: Vi|
|000010a0| 65 77 73 2e 46 72 61 6d | 65 3b 20 6c 2c 20 74 2c |ews.Fram|e; l, t,|
|000010b0| 20 72 2c 20 62 3a 20 4c | 4f 4e 47 49 4e 54 29 3b | r, b: L|ONGINT);|
|000010c0| 0d 09 09 56 41 52 20 68 | 3a 20 56 61 6c 75 65 3b |...VAR h|: Value;|
|000010d0| 20 6e 3a 20 49 4e 54 45 | 47 45 52 3b 20 77 69 64 | n: INTE|GER; wid|
|000010e0| 74 68 2c 20 68 65 69 67 | 68 74 2c 20 64 2c 20 78 |th, heig|ht, d, x|
|000010f0| 3a 20 4c 4f 4e 47 49 4e | 54 3b 0d 09 42 45 47 49 |: LONGIN|T;..BEGI|
|00001100| 4e 0d 09 09 68 20 3a 3d | 20 76 2e 6d 6f 64 65 6c |N...h :=| v.model|
|00001110| 2e 76 61 6c 75 65 73 3b | 20 6e 20 3a 3d 20 30 3b |.values;| n := 0;|
|00001120| 20 57 48 49 4c 45 20 68 | 20 23 20 4e 49 4c 20 44 | WHILE h| # NIL D|
|00001130| 4f 20 49 4e 43 28 6e 29 | 3b 20 68 20 3a 3d 20 68 |O INC(n)|; h := h|
|00001140| 2e 6e 65 78 74 20 45 4e | 44 3b 09 28 2a 20 63 6f |.next EN|D;.(* co|
|00001150| 75 6e 74 20 76 61 6c 75 | 65 73 20 2a 29 0d 09 09 |unt valu|es *)...|
|00001160| 49 46 20 6e 20 3e 20 30 | 20 54 48 45 4e 0d 09 09 |IF n > 0| THEN...|
|00001170| 09 76 2e 63 6f 6e 74 65 | 78 74 2e 47 65 74 53 69 |.v.conte|xt.GetSi|
|00001180| 7a 65 28 77 69 64 74 68 | 2c 20 68 65 69 67 68 74 |ze(width|, height|
|00001190| 29 3b 0d 09 09 09 64 20 | 3a 3d 20 77 69 64 74 68 |);....d |:= width|
|000011a0| 20 44 49 56 20 6e 3b 20 | 78 20 3a 3d 20 30 3b 0d | DIV n; |x := 0;.|
|000011b0| 09 09 09 68 20 3a 3d 20 | 76 2e 6d 6f 64 65 6c 2e |...h := |v.model.|
|000011c0| 76 61 6c 75 65 73 3b 0d | 09 09 09 57 48 49 4c 45 |values;.|...WHILE|
|000011d0| 20 68 20 23 20 4e 49 4c | 20 44 4f 0d 09 09 09 09 | h # NIL| DO.....|
|000011e0| 66 2e 44 72 61 77 52 65 | 63 74 28 78 2c 20 68 65 |f.DrawRe|ct(x, he|
|000011f0| 69 67 68 74 20 2d 20 68 | 2e 76 61 6c 20 2a 20 50 |ight - h|.val * P|
|00001200| 6f 72 74 73 2e 6d 6d 2c | 20 78 20 2b 20 64 2c 20 |orts.mm,| x + d, |
|00001210| 68 65 69 67 68 74 2c 20 | 50 6f 72 74 73 2e 66 69 |height, |Ports.fi|
|00001220| 6c 6c 2c 20 50 6f 72 74 | 73 2e 67 72 65 79 32 35 |ll, Port|s.grey25|
|00001230| 29 3b 0d 09 09 09 09 68 | 20 3a 3d 20 68 2e 6e 65 |);.....h| := h.ne|
|00001240| 78 74 3b 20 49 4e 43 28 | 78 2c 20 64 29 0d 09 09 |xt; INC(|x, d)...|
|00001250| 09 45 4e 44 0d 09 09 45 | 4e 44 0d 09 45 4e 44 20 |.END...E|ND..END |
|00001260| 52 65 73 74 6f 72 65 3b | 0d 0d 09 50 52 4f 43 45 |Restore;|...PROCE|
|00001270| 44 55 52 45 20 28 76 3a | 20 56 69 65 77 29 20 48 |DURE (v:| View) H|
|00001280| 61 6e 64 6c 65 4d 6f 64 | 65 6c 4d 73 67 20 28 56 |andleMod|elMsg (V|
|00001290| 41 52 20 6d 73 67 3a 20 | 4d 6f 64 65 6c 73 2e 4d |AR msg: |Models.M|
|000012a0| 65 73 73 61 67 65 29 3b | 0d 09 42 45 47 49 4e 0d |essage);|..BEGIN.|
|000012b0| 09 09 57 49 54 48 20 6d | 73 67 3a 20 4d 6f 64 65 |..WITH m|sg: Mode|
|000012c0| 6c 73 2e 55 70 64 61 74 | 65 4d 73 67 20 44 4f 0d |ls.Updat|eMsg DO.|
|000012d0| 09 09 09 56 69 65 77 73 | 2e 55 70 64 61 74 65 28 |...Views|.Update(|
|000012e0| 76 2c 20 56 69 65 77 73 | 2e 6b 65 65 70 46 72 61 |v, Views|.keepFra|
|000012f0| 6d 65 73 29 0d 09 09 45 | 4c 53 45 0d 09 09 45 4e |mes)...E|LSE...EN|
|00001300| 44 0d 09 45 4e 44 20 48 | 61 6e 64 6c 65 4d 6f 64 |D..END H|andleMod|
|00001310| 65 6c 4d 73 67 3b 0d 0d | 09 50 52 4f 43 45 44 55 |elMsg;..|.PROCEDU|
|00001320| 52 45 20 28 76 3a 20 56 | 69 65 77 29 20 48 61 6e |RE (v: V|iew) Han|
|00001330| 64 6c 65 43 74 72 6c 4d | 73 67 20 28 66 3a 20 56 |dleCtrlM|sg (f: V|
|00001340| 69 65 77 73 2e 46 72 61 | 6d 65 3b 20 56 41 52 20 |iews.Fra|me; VAR |
|00001350| 6d 73 67 3a 20 56 69 65 | 77 73 2e 43 74 72 6c 4d |msg: Vie|ws.CtrlM|
|00001360| 65 73 73 61 67 65 3b 0d | 09 09 09 09 09 09 09 09 |essage;.|........|
|00001370| 09 09 09 09 09 09 09 09 | 56 41 52 20 66 6f 63 75 |........|VAR focu|
|00001380| 73 3a 20 56 69 65 77 73 | 2e 56 69 65 77 29 3b 0d |s: Views|.View);.|
|00001390| 09 09 56 41 52 20 78 2c | 20 79 2c 20 77 2c 20 68 |..VAR x,| y, w, h|
|000013a0| 3a 20 4c 4f 4e 47 49 4e | 54 3b 20 6d 6f 64 69 66 |: LONGIN|T; modif|
|000013b0| 69 65 72 73 3a 20 53 45 | 54 3b 20 69 73 44 6f 77 |iers: SE|T; isDow|
|000013c0| 6e 3a 20 42 4f 4f 4c 45 | 41 4e 3b 0d 09 42 45 47 |n: BOOLE|AN;..BEG|
|000013d0| 49 4e 0d 09 09 57 49 54 | 48 20 6d 73 67 3a 20 43 |IN...WIT|H msg: C|
|000013e0| 6f 6e 74 72 6f 6c 6c 65 | 72 73 2e 54 72 61 63 6b |ontrolle|rs.Track|
|000013f0| 4d 73 67 20 44 4f 0d 09 | 09 09 52 45 50 45 41 54 |Msg DO..|..REPEAT|
|00001400| 20 66 2e 49 6e 70 75 74 | 28 78 2c 20 79 2c 20 6d | f.Input|(x, y, m|
|00001410| 6f 64 69 66 69 65 72 73 | 2c 20 69 73 44 6f 77 6e |odifiers|, isDown|
|00001420| 29 20 55 4e 54 49 4c 20 | 7e 69 73 44 6f 77 6e 3b |) UNTIL |~isDown;|
|00001430| 0d 09 09 09 76 2e 63 6f | 6e 74 65 78 74 2e 47 65 |....v.co|ntext.Ge|
|00001440| 74 53 69 7a 65 28 77 2c | 20 68 29 3b 0d 09 09 09 |tSize(w,| h);....|
|00001450| 49 46 20 28 78 20 3e 3d | 20 30 29 20 26 20 28 79 |IF (x >=| 0) & (y|
|00001460| 20 3e 3d 20 30 29 20 26 | 20 28 78 20 3c 20 77 29 | >= 0) &| (x < w)|
|00001470| 20 26 20 28 79 20 3c 20 | 68 29 20 54 48 45 4e 20 | & (y < |h) THEN |
|00001480| 4f 70 65 6e 44 61 74 61 | 28 76 29 20 45 4e 44 0d |OpenData|(v) END.|
|00001490| 09 09 7c 20 6d 73 67 3a | 20 43 6f 6e 74 72 6f 6c |..| msg:| Control|
|000014a0| 6c 65 72 73 2e 50 6f 6c | 6c 44 72 6f 70 4d 73 67 |lers.Pol|lDropMsg|
|000014b0| 20 44 4f 0d 09 09 09 49 | 46 20 6d 73 67 2e 74 79 | DO....I|F msg.ty|
|000014c0| 70 65 20 3d 20 22 54 65 | 78 74 56 69 65 77 73 2e |pe = "Te|xtViews.|
|000014d0| 53 74 64 56 69 65 77 44 | 65 73 63 22 20 54 48 45 |StdViewD|esc" THE|
|000014e0| 4e 20 6d 73 67 2e 64 65 | 73 74 20 3a 3d 20 66 20 |N msg.de|st := f |
|000014f0| 28 2a 20 65 6e 61 62 6c | 65 20 64 72 6f 70 20 74 |(* enabl|e drop t|
|00001500| 61 72 67 65 74 20 66 65 | 65 64 62 61 63 6b 20 2a |arget fe|edback *|
|00001510| 29 20 45 4e 44 0d 09 09 | 7c 20 6d 73 67 3a 20 43 |) END...|| msg: C|
|00001520| 6f 6e 74 72 6f 6c 6c 65 | 72 73 2e 44 72 6f 70 4d |ontrolle|rs.DropM|
|00001530| 73 67 20 44 4f 0d 09 09 | 09 49 46 20 6d 73 67 2e |sg DO...|.IF msg.|
|00001540| 76 69 65 77 20 49 53 20 | 54 65 78 74 56 69 65 77 |view IS |TextView|
|00001550| 73 2e 56 69 65 77 20 54 | 48 45 4e 0d 09 09 09 09 |s.View T|HEN.....|
|00001560| 44 72 6f 70 44 61 74 61 | 28 6d 73 67 2e 76 69 65 |DropData|(msg.vie|
|00001570| 77 28 54 65 78 74 56 69 | 65 77 73 2e 56 69 65 77 |w(TextVi|ews.View|
|00001580| 29 2e 54 68 69 73 4d 6f | 64 65 6c 28 29 2c 20 76 |).ThisMo|del(), v|
|00001590| 29 09 28 2a 20 69 6e 74 | 65 72 70 72 65 74 20 64 |).(* int|erpret d|
|000015a0| 72 6f 70 70 65 64 20 74 | 65 78 74 20 2a 29 0d 09 |ropped t|ext *)..|
|000015b0| 09 09 45 4e 44 0d 09 09 | 45 4c 53 45 0d 09 09 45 |..END...|ELSE...E|
|000015c0| 4e 44 0d 09 45 4e 44 20 | 48 61 6e 64 6c 65 43 74 |ND..END |HandleCt|
|000015d0| 72 6c 4d 73 67 3b 0d 0d | 09 50 52 4f 43 45 44 55 |rlMsg;..|.PROCEDU|
|000015e0| 52 45 20 28 76 3a 20 56 | 69 65 77 29 20 48 61 6e |RE (v: V|iew) Han|
|000015f0| 64 6c 65 50 72 6f 70 4d | 73 67 20 28 56 41 52 20 |dlePropM|sg (VAR |
|00001600| 6d 73 67 3a 20 50 72 6f | 70 65 72 74 69 65 73 2e |msg: Pro|perties.|
|00001610| 4d 65 73 73 61 67 65 29 | 3b 0d 09 09 43 4f 4e 53 |Message)|;...CONS|
|00001620| 54 20 6d 69 6e 20 3d 20 | 31 30 20 2a 20 50 6f 72 |T min = |10 * Por|
|00001630| 74 73 2e 6d 6d 3b 20 6d | 61 78 20 3d 20 31 36 30 |ts.mm; m|ax = 160|
|00001640| 20 2a 20 50 6f 72 74 73 | 2e 6d 6d 3b 20 70 72 65 | * Ports|.mm; pre|
|00001650| 66 20 3d 20 39 30 20 2a | 20 50 6f 72 74 73 2e 6d |f = 90 *| Ports.m|
|00001660| 6d 3b 0d 09 42 45 47 49 | 4e 0d 09 09 57 49 54 48 |m;..BEGI|N...WITH|
|00001670| 20 6d 73 67 3a 20 50 72 | 6f 70 65 72 74 69 65 73 | msg: Pr|operties|
|00001680| 2e 53 69 7a 65 50 72 65 | 66 20 44 4f 09 28 2a 20 |.SizePre|f DO.(* |
|00001690| 70 72 65 76 65 6e 74 20 | 69 6c 6c 65 67 61 6c 20 |prevent |illegal |
|000016a0| 73 69 7a 65 73 20 2a 29 | 0d 09 09 09 49 46 20 6d |sizes *)|....IF m|
|000016b0| 73 67 2e 77 20 3d 20 56 | 69 65 77 73 2e 75 6e 64 |sg.w = V|iews.und|
|000016c0| 65 66 69 6e 65 64 20 54 | 48 45 4e 20 6d 73 67 2e |efined T|HEN msg.|
|000016d0| 77 20 3a 3d 20 70 72 65 | 66 0d 09 09 09 45 4c 53 |w := pre|f....ELS|
|000016e0| 49 46 20 6d 73 67 2e 77 | 20 3c 20 6d 69 6e 20 54 |IF msg.w| < min T|
|000016f0| 48 45 4e 20 6d 73 67 2e | 77 20 3a 3d 20 6d 69 6e |HEN msg.|w := min|
|00001700| 0d 09 09 09 45 4c 53 49 | 46 20 6d 73 67 2e 77 20 |....ELSI|F msg.w |
|00001710| 3e 20 6d 61 78 20 54 48 | 45 4e 20 6d 73 67 2e 77 |> max TH|EN msg.w|
|00001720| 20 3a 3d 20 6d 61 78 0d | 09 09 09 45 4e 44 3b 0d | := max.|...END;.|
|00001730| 09 09 09 49 46 20 6d 73 | 67 2e 68 20 3d 20 56 69 |...IF ms|g.h = Vi|
|00001740| 65 77 73 2e 75 6e 64 65 | 66 69 6e 65 64 20 54 48 |ews.unde|fined TH|
|00001750| 45 4e 20 6d 73 67 2e 68 | 20 3a 3d 20 70 72 65 66 |EN msg.h| := pref|
|00001760| 0d 09 09 09 45 4c 53 49 | 46 20 6d 73 67 2e 68 20 |....ELSI|F msg.h |
|00001770| 3c 20 6d 69 6e 20 54 48 | 45 4e 20 6d 73 67 2e 68 |< min TH|EN msg.h|
|00001780| 20 3a 3d 20 6d 69 6e 0d | 09 09 09 45 4c 53 49 46 | := min.|...ELSIF|
|00001790| 20 6d 73 67 2e 68 20 3e | 20 6d 61 78 20 54 48 45 | msg.h >| max THE|
|000017a0| 4e 20 6d 73 67 2e 68 20 | 3a 3d 20 6d 61 78 0d 09 |N msg.h |:= max..|
|000017b0| 09 09 45 4e 44 0d 09 09 | 7c 20 6d 73 67 3a 20 50 |..END...|| msg: P|
|000017c0| 72 6f 70 65 72 74 69 65 | 73 2e 46 6f 63 75 73 50 |ropertie|s.FocusP|
|000017d0| 72 65 66 20 44 4f 0d 09 | 09 09 6d 73 67 2e 68 6f |ref DO..|..msg.ho|
|000017e0| 74 46 6f 63 75 73 20 3a | 3d 20 54 52 55 45 0d 09 |tFocus :|= TRUE..|
|000017f0| 09 45 4c 53 45 0d 09 09 | 45 4e 44 0d 09 45 4e 44 |.ELSE...|END..END|
|00001800| 20 48 61 6e 64 6c 65 50 | 72 6f 70 4d 73 67 3b 0d | HandleP|ropMsg;.|
|00001810| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 44 65 70 6f |..PROCED|URE Depo|
|00001820| 73 69 74 2a 3b 0d 09 09 | 56 41 52 20 6d 3a 20 4d |sit*;...|VAR m: M|
|00001830| 6f 64 65 6c 3b 20 76 3a | 20 56 69 65 77 3b 0d 09 |odel; v:| View;..|
|00001840| 42 45 47 49 4e 0d 09 09 | 4e 45 57 28 6d 29 3b 0d |BEGIN...|NEW(m);.|
|00001850| 09 09 4e 45 57 28 76 29 | 3b 20 76 2e 49 6e 69 74 |..NEW(v)|; v.Init|
|00001860| 4d 6f 64 65 6c 28 6d 29 | 3b 0d 09 09 56 69 65 77 |Model(m)|;...View|
|00001870| 73 2e 44 65 70 6f 73 69 | 74 28 76 29 0d 09 45 4e |s.Deposi|t(v)..EN|
|00001880| 44 20 44 65 70 6f 73 69 | 74 3b 0d 0d 45 4e 44 20 |D Deposi|t;..END |
|00001890| 4f 62 78 47 72 61 70 68 | 73 2e 82 f1 54 65 78 74 |ObxGraph|s...Text|
|000018a0| 43 6f 6e 74 72 6f 6c 6c | 65 72 73 2e 53 74 64 43 |Controll|ers.StdC|
|000018b0| 74 72 6c 44 65 73 63 00 | f1 54 65 78 74 43 6f 6e |trlDesc.|.TextCon|
|000018c0| 74 72 6f 6c 6c 65 72 73 | 2e 43 6f 6e 74 72 6f 6c |trollers|.Control|
|000018d0| 6c 65 72 44 65 73 63 00 | f1 43 6f 6e 74 61 69 6e |lerDesc.|.Contain|
|000018e0| 65 72 73 2e 43 6f 6e 74 | 72 6f 6c 6c 65 72 44 65 |ers.Cont|rollerDe|
|000018f0| 73 63 00 f1 43 6f 6e 74 | 72 6f 6c 6c 65 72 73 2e |sc..Cont|rollers.|
|00001900| 43 6f 6e 74 72 6f 6c 6c | 65 72 44 65 73 63 00 f2 |Controll|erDesc..|
|00001910| 04 00 00 00 00 00 00 00 | 14 00 00 00 00 00 00 00 |........|........|
|00001920| 09 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00001930| 82 f1 54 65 78 74 52 75 | 6c 65 72 73 2e 53 74 64 |..TextRu|lers.Std|
|00001940| 52 75 6c 65 72 44 65 73 | 63 00 f1 54 65 78 74 52 |RulerDes|c..TextR|
|00001950| 75 6c 65 72 73 2e 52 75 | 6c 65 72 44 65 73 63 00 |ulers.Ru|lerDesc.|
|00001960| f2 03 00 00 00 00 00 00 | 00 ab 00 00 00 07 00 00 |........|........|
|00001970| 00 a3 00 00 00 00 00 00 | 83 f1 54 65 78 74 52 75 |........|..TextRu|
|00001980| 6c 65 72 73 2e 53 74 64 | 53 74 79 6c 65 44 65 73 |lers.Std|StyleDes|
|00001990| 63 00 f1 54 65 78 74 52 | 75 6c 65 72 73 2e 53 74 |c..TextR|ulers.St|
|000019a0| 79 6c 65 44 65 73 63 00 | f2 07 00 00 00 00 00 00 |yleDesc.|........|
|000019b0| 00 00 00 00 00 08 00 00 | 00 5a 00 00 00 00 00 00 |........|.Z......|
|000019c0| 00 82 f1 54 65 78 74 52 | 75 6c 65 72 73 2e 41 74 |...TextR|ulers.At|
|000019d0| 74 72 69 62 75 74 65 73 | 44 65 73 63 00 f2 04 00 |tributes|Desc....|
|000019e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 24 00 |........|......$.|
|000019f0| 00 00 00 01 00 00 00 00 | 00 00 00 00 20 a3 5a 00 |........|.... .Z.|
|00001a00| 00 00 00 00 18 f0 01 00 | 38 63 00 00 01 00 00 00 |........|8c......|
|00001a10| 01 00 00 00 00 00 00 00 | 82 f2 0d 00 00 00 00 00 |........|........|
|00001a20| 00 00 00 00 00 00 00 00 | 00 00 22 00 00 00 00 00 |........|..".....|
|00001a30| 00 00 00 01 00 00 00 00 | 48 65 6c 76 65 74 69 63 |........|Helvetic|
|00001a40| 61 00 7c be 01 00 00 00 | 00 00 90 01 00 00 00 00 |a.|.....|........|
|00001a50| 00 00 00 00 00 00 00 00 | e0 8c 01 00 e0 8c 01 00 |........|........|
|00001a60| 00 30 5c 00 e0 b9 3b 3e | 82 f1 44 6f 63 75 6d 65 |.0\...;>|..Docume|
|00001a70| 6e 74 73 2e 43 6f 6e 74 | 72 6f 6c 6c 65 72 44 65 |nts.Cont|rollerDe|
|00001a80| 73 63 00 f2 10 00 00 00 | 00 00 00 00 00 00 00 00 |sc......|........|
|00001a90| 00 00 00 00 08 00 00 00 | 00 00 00 00 00 09 00 00 |........|........|
|00001aa0| 00 00 94 4d 73 00 18 2b | a3 00 80 fc 0a 00 80 fc |...Ms..+|........|
|00001ab0| 0a 00 a0 9f 65 00 98 2e | 98 00 00 00 00 00 00 00 |....e...|........|
|00001ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b00| 00 00 01 00 00 00 01 0c | 00 00 00 0c 00 00 00 32 |........|.......2|
|00001b10| 00 00 02 25 16 49 6e 66 | 6f 2d 4d 61 63 20 28 53 |...%.Inf|o-Mac (S|
|00001b20| 77 69 74 7a 65 72 6c 61 | 6e 64 29 00 00 00 00 00 |witzerla|nd).....|
|00001b30| 06 47 72 61 70 68 73 47 | 02 00 00 00 50 61 72 74 |.GraphsG|....Part|
|00001b40| 53 49 54 21 00 00 00 00 | 00 00 00 00 00 00 48 8d |SIT!....|......H.|
|00001b50| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00001b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b70| 00 00 ae 04 81 ad 00 00 | 00 00 00 00 01 3e 00 00 |........|.....>..|
|00001b80| 00 00 00 00 00 00 00 00 | 00 00 01 1a 25 00 00 00 |........|....%...|
|00001b90| 02 a1 0f 31 2e 20 49 6e | 74 72 6f 64 75 63 74 69 |...1. In|troducti|
|00001ba0| 6f 6e 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |on......|........|
|00001bb0| 00 00 00 00 01 05 25 00 | 00 00 02 fe 10 4d 65 67 |......%.|.....Meg|
|00001bc0| 61 50 68 6f 6e 65 20 4d | 61 6e 75 61 6c 00 00 00 |aPhone M|anual...|
|00001bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 04 83 |........|........|
|00001be0| 25 00 00 00 03 70 11 65 | 57 6f 72 6c 64 20 43 44 |%....p.e|World CD|
|00001bf0| 20 31 2e 31 20 50 44 46 | 00 00 00 00 00 00 00 00 | 1.1 PDF|........|
|00001c00| 00 00 00 08 00 27 00 73 | 01 c6 02 66 00 00 01 00 |.....'.s|...f....|
|00001c10| 00 00 01 0c 00 00 00 0c | 00 00 00 32 01 26 d0 48 |........|...2.&.H|
|00001c20| 15 ac 00 00 00 1c 00 32 | 00 00 57 4e 53 50 00 00 |.......2|..WNSP..|
|00001c30| 00 0a 00 01 ff ff 00 00 | 00 00 01 26 d2 4c 00 00 |........|...&.L..|
|00001c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+